%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: -3 -3 3 3
5 dict begin 
/box {
	0 0 moveto 0 1 lineto 1 1 lineto 1 0 lineto closepath fill 
} def
/circ {
	0 0 1 0 360 arc closepath fill
} def

gsave
/_auto {
	gsave -2 0 translate 4 1 scale box grestore
	gsave gsave -1 .5 translate 2 1 scale box grestore
	gsave gsave -.9 0 translate .5 .5 scale circ grestore
	gsave .9 0 translate .5 .5 scale circ grestore
	grestore grestore 
} def
grestore

gsave 2 {
	gsave -3 -3 translate 10 { 
		gsave 10 {
			gsave .3 .25 scale _auto grestore 
		0 1 translate } repeat grestore
	1.4 0 translate } repeat grestore 
.7 .5 translate }
repeat grestore end showpage
